home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 21
/
Cream of the Crop 21 (Terry Blount) (October 1996).iso
/
program
/
srcbkvt.zip
/
20_20_4.ZIP
/
SIMPDEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-03-15
|
1KB
|
60 lines
unit simpdemo;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, shdmem;
type
TForm1 = class(TForm)
StrNum: TEdit;
StringVal: TEdit;
GetButton: TButton;
SetButton: TButton;
procedure FormCreate(Sender: TObject);
procedure GetButtonClick(Sender: TObject);
procedure SetButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Sh : TShareMem;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Sh:=TShareMem.Create(Form1);
Sh.Name:='SIMPDEMO1';
Sh.Loaded;
end;
procedure TForm1.GetButtonClick(Sender: TObject);
var
v,c : Integer;
s : String;
begin
val(StrNum.Text,v,c);
Sh.Rcl(v,s);
StringVal.Text:=s;
end;
procedure TForm1.SetButtonClick(Sender: TObject);
var
s : String;
v,c : Integer;
begin
val(StrNum.Text,v,c);
s:=StringVal.Text;
Sh.Sto(v,s);
end;
end.